home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 34.zip
/
BS1 part 34
/
Music Util v1.5 TPL.adf
/
play.s
< prev
next >
Wrap
Text File
|
1987-05-04
|
1KB
|
82 lines
* 8 Channel - Test 2 *
org $70000
load $70000
p: lea $dff000,a6
move.w #$4000,$9a(a6)
move.w #$1ff,$96(a6)
move.l #Sample,$a0(a6)
moveq #1,d1
move.w #156*2+1,$a4(a6)
moveq #0,d2
moveq #0,d3
lea Ton2,a1
lea Ton,a0
move.w #227,$a6(a6)
move.w #64,$a8(a6)
move.w #$8001,$96(a6)
move.w #$0080,$9c(a6)
move.l #$08000,d4
move.l #$08000,d5
pwait: btst #7,$1f(a6)
beq.s pwait
lea Sample(pc),a2
move.w #625,d7
loople: move.b (a0,d2.w),d0
add.b (a1,d3.w),d0
eor.b #$80,d0
move.b d0,(a2)+
swap d2
swap d3
add.l d4,d2
add.l d5,d3
swap d2
swap d3
dbf d7,loople
move.w #$80,$9c(a6)
btst #6,$bfe001
beq.s pex
btst #2,$16(a6)
bne.s pwait
addq.w #1,d1
move.w d1,$a4(a6)
bra.s pwait
pex: move.w #$c000,$9a(a6)
move.w #$81f0,$96(a6)
move.w #1,$96(a6)
rts
TonA: lea Ton(pc),a0
lea $80000,a1
TA: move.b (a0),d0
eor.b #$80,d0
lsr.b #1,d0
move.b d0,(a0)+
cmp.l a0,a1
bne.s TA
rts
Sample: blk.b 626,0
org $78000
load $78000
Ton:
org $7c000
load $7c000
Ton2: